home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / business / show30a.zip / SOUND1.SHW < prev   
Text File  |  1992-09-01  |  532b  |  12 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  SOUND1.SHW                                            ;
  3. ; Purpose....:  Sub program to PROMOTE1.SHW (tight loop for sound).   ;
  4. ;*********************************************************************;
  5. MARK 1          ; Set a mark to jump to
  6. MUSIC SOUND G 4 70
  7. MUSIC SOUND D 4 70
  8. VARIABLE INCREASE soundloop 1
  9. IF soundloop 8 DO JUMPMARK 2
  10. JUMPMARK 1      ; If we've reached here, jump to mark 1
  11. MARK 2          ; Set a mark to jump to
  12.